library(ggplot2)
data_railway <- read.csv("2020-11-15成渝高铁上行成都局1车在前3号弓_All.csv")
km298 <- data_railway[1562:5579,]
km150 <- data_railway[596224:600252,]
km160 <- data_railway[556037:560072,]
data_long <- reshape(
  data = km298,
  varying = list(c("压力1", "压力2", "压力3", "压力4")),
  direction = "long",
  v.names = "Pressure_Value",
  timevar = "Pressure_Type",
  times = c("压力1", "压力2", "压力3", "压力4")
)

压力1-4

压力1-4与公里标

ggplot(data_long, aes(x = 公里标, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于公里标的散点图",
    x = "公里标",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与采样点

ggplot(data_long, aes(x = 采样点, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于采样点的散点图",
    x = "采样点",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与垂加基

ggplot(data_long, aes(x = 垂加基, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加基的散点图",
    x = "垂加基",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与横加基

ggplot(data_long, aes(x = 横加基, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于横加基的散点图",
    x = "横加基",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与温度

ggplot(data_long, aes(x = 温度, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于温度的散点图",
    x = "温度",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与垂加

ggplot(data_long, aes(x = 垂加, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加的散点图",
    x = "垂加",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与垂加1

ggplot(data_long, aes(x = 垂加1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加1的散点图",
    x = "垂加1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与垂加2

ggplot(data_long, aes(x = 垂加2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加2的散点图",
    x = "垂加2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与垂加3

ggplot(data_long, aes(x = 垂加3, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加3的散点图",
    x = "垂加3",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与垂加4

ggplot(data_long, aes(x = 垂加4, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于垂加4的散点图",
    x = "垂加4",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与滑板1压力

ggplot(data_long, aes(x = 滑板1压力, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于滑板1压力的散点图",
    x = "滑板1压力",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与滑板2压力

ggplot(data_long, aes(x = 滑板2压力, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于滑板2压力的散点图",
    x = "滑板2压力",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与无补偿接触力

ggplot(data_long, aes(x = 无补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于无补偿接触力的散点图",
    x = "无补偿接触力",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与有补偿接触力

ggplot(data_long, aes(x = 有补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于有补偿接触力的散点图",
    x = "有补偿接触力",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与空气动力补偿接触力

ggplot(data_long, aes(x = 空气动力补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于空气动力补偿接触力的散点图",
    x = "空气动力补偿接触力",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与硬点

ggplot(data_long, aes(x = 硬点, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于硬点的散点图",
    x = "硬点",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与冲击

ggplot(data_long, aes(x = 冲击, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于冲击的散点图",
    x = "冲击",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与接触拉出值

ggplot(data_long, aes(x = 接触拉出值, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于接触拉出值的散点图",
    x = "接触拉出值",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与接触导高

ggplot(data_long, aes(x = 接触导高, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于接触导高的散点图",
    x = "接触导高",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与网流

ggplot(data_long, aes(x = 网流, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于网流的散点图",
    x = "网流",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与网压

ggplot(data_long, aes(x = 网压, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于网压的散点图",
    x = "网压",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与纵加

ggplot(data_long, aes(x = 纵加, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于纵加的散点图",
    x = "纵加",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与纵加1

ggplot(data_long, aes(x = 纵加1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于纵加1的散点图",
    x = "纵加1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与纵加2

ggplot(data_long, aes(x = 纵加2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于纵加2的散点图",
    x = "纵加2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与纵加3

ggplot(data_long, aes(x = 纵加3, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于纵加3的散点图",
    x = "纵加3",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与纵加4

ggplot(data_long, aes(x = 纵加4, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于纵加4的散点图",
    x = "纵加4",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与火花次数

ggplot(data_long, aes(x = 火花次数, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于火花次数的散点图",
    x = "火花次数",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与火花时间

ggplot(data_long, aes(x = 火花时间, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于火花时间的散点图",
    x = "火花时间",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与保留1

ggplot(data_long, aes(x = 保留1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于保留1的散点图",
    x = "保留1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与保留2

ggplot(data_long, aes(x = 保留2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于保留2的散点图",
    x = "保留2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与保留3

ggplot(data_long, aes(x = 保留3, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于保留3的散点图",
    x = "保留3",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与保留4

ggplot(data_long, aes(x = 保留4, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于保留4的散点图",
    x = "保留4",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与速度

ggplot(data_long, aes(x = 速度, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于速度的散点图",
    x = "速度",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触导高1

ggplot(data_long, aes(x = 非接触导高1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触导高1的散点图",
    x = "非接触导高1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触导高2

ggplot(data_long, aes(x = 非接触导高2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触导高2的散点图",
    x = "非接触导高2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触拉出值1

ggplot(data_long, aes(x = 非接触拉出值1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触拉出值1的散点图",
    x = "非接触拉出值1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触拉出值2

ggplot(data_long, aes(x = 非接触拉出值2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触拉出值2的散点图",
    x = "非接触拉出值2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触磨耗1

ggplot(data_long, aes(x = 非接触磨耗1, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触磨耗1的散点图",
    x = "非接触磨耗1",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与非接触磨耗2

ggplot(data_long, aes(x = 非接触磨耗2, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于非接触磨耗2的散点图",
    x = "非接触磨耗2",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与接触线坡度

ggplot(data_long, aes(x = 接触线坡度, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于接触线坡度的散点图",
    x = "接触线坡度",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'

压力1-4与吊悬

ggplot(data_long, aes(x = 吊悬, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于吊悬的散点图",
    x = "吊悬",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")+
  geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.

压力1-4与功率

ggplot(data_long, aes(x = 功率, y = Pressure_Value, color = Pressure_Type)) +
  geom_point(alpha = 0.6) +
  labs(
    title = "压力1-4 关于功率的散点图",
    x = "功率",
    y = "压力值",
    color = "压力类型"
  ) +
  theme_minimal() +
  scale_color_brewer(palette = "Set1")

火花次数

data_long <- reshape(
  data = km298,
  varying = list(c("火花次数")),
  direction = "long",
  v.names = "firespark_Value",
  timevar = "firespark_Type",
  times = c("火花次数")
)

火花次数与公里标

ggplot(km298, aes(x = 公里标, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于公里标的散点图",
    x = "公里标",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与采样点

ggplot(km298, aes(x = 采样点, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于采样点的散点图",
    x = "采样点",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与压力1

ggplot(km298, aes(x = 压力1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于压力1的散点图",
    x = "压力1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与压力2

ggplot(km298, aes(x = 压力2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于压力2的散点图",
    x = "压力2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与压力3

ggplot(km298, aes(x = 压力3, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于压力3的散点图",
    x = "压力3",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与压力4

ggplot(km298, aes(x = 压力4, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于压力4的散点图",
    x = "压力4",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加基

ggplot(km298, aes(x = 垂加基, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加基的散点图",
    x = "垂加基",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与横加基

ggplot(km298, aes(x = 横加基, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于横加基的散点图",
    x = "横加基",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与温度

ggplot(km298, aes(x = 温度, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于温度的散点图",
    x = "温度",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加

ggplot(km298, aes(x = 垂加, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加的散点图",
    x = "垂加",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加1

ggplot(km298, aes(x = 垂加1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加1的散点图",
    x = "垂加1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加2

ggplot(km298, aes(x = 垂加2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加2的散点图",
    x = "垂加2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加3

ggplot(km298, aes(x = 垂加3, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加3的散点图",
    x = "垂加3",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与垂加4

ggplot(km298, aes(x = 垂加4, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于垂加4的散点图",
    x = "垂加4",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与滑板1压力

ggplot(km298, aes(x = 滑板1压力, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于滑板1压力的散点图",
    x = "滑板1压力",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与滑板2压力

ggplot(km298, aes(x = 滑板2压力, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于滑板2压力的散点图",
    x = "滑板2压力",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与无补偿接触力

ggplot(km298, aes(x = 无补偿接触力, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于无补偿接触力的散点图",
    x = "无补偿接触力",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与有补偿接触力

ggplot(km298, aes(x = 有补偿接触力, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于有补偿接触力的散点图",
    x = "有补偿接触力",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与空气动力补偿接触力

ggplot(km298, aes(x = 空气动力补偿接触力, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于空气动力补偿接触力的散点图",
    x = "空气动力补偿接触力",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与硬点

ggplot(km298, aes(x = 硬点, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于硬点的散点图",
    x = "硬点",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与冲击

ggplot(km298, aes(x = 冲击, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于冲击的散点图",
    x = "冲击",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与接触拉出值

ggplot(km298, aes(x = 接触拉出值, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于接触拉出值的散点图",
    x = "接触拉出值",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与接触导高

ggplot(km298, aes(x = 接触导高, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于接触导高的散点图",
    x = "接触导高",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与网流

ggplot(km298, aes(x = 网流, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于网流的散点图",
    x = "网流",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与网压

ggplot(km298, aes(x = 网压, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于网压的散点图",
    x = "网压",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与纵加

ggplot(km298, aes(x = 纵加, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于纵加的散点图",
    x = "纵加",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与纵加1

ggplot(km298, aes(x = 纵加1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于纵加1的散点图",
    x = "纵加1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与纵加2

ggplot(km298, aes(x = 纵加2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于纵加2的散点图",
    x = "纵加2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与纵加3

ggplot(km298, aes(x = 纵加3, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于纵加3的散点图",
    x = "纵加3",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与纵加4

ggplot(km298, aes(x = 纵加4, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于纵加4的散点图",
    x = "纵加4",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与火花时间

ggplot(km298, aes(x = 火花时间, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于火花时间的散点图",
    x = "火花时间",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与保留1

ggplot(km298, aes(x = 保留1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于保留1的散点图",
    x = "保留1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与保留2

ggplot(km298, aes(x = 保留2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于保留2的散点图",
    x = "保留2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与保留3

ggplot(km298, aes(x = 保留3, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于保留3的散点图",
    x = "保留3",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与保留4

ggplot(km298, aes(x = 保留4, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于保留4的散点图",
    x = "保留4",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与速度

ggplot(km298, aes(x = 速度, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于速度的散点图",
    x = "速度",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与支柱

ggplot(km298, aes(x = 支柱, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于支柱的散点图",
    x = "支柱",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触导高1

ggplot(km298, aes(x = 非接触导高1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触导高1的散点图",
    x = "非接触导高1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触导高2

ggplot(km298, aes(x = 非接触导高2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触导高2的散点图",
    x = "非接触导高2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触拉出值1

ggplot(km298, aes(x = 非接触拉出值1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触拉出值1的散点图",
    x = "非接触拉出值1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触拉出值2

ggplot(km298, aes(x = 非接触拉出值2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触拉出值2的散点图",
    x = "非接触拉出值2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触磨耗1

ggplot(km298, aes(x = 非接触磨耗1, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触磨耗1的散点图",
    x = "非接触磨耗1",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与非接触磨耗2

ggplot(km298, aes(x = 非接触磨耗2, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于非接触磨耗2的散点图",
    x = "非接触磨耗2",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与接触线坡度

ggplot(km298, aes(x = 接触线坡度, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于接触线坡度的散点图",
    x = "接触线坡度",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与吊悬

ggplot(km298, aes(x = 吊悬, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于吊悬的散点图",
    x = "吊悬",
    y = "火花次数"
  ) +
  theme_minimal()

火花次数与功率

ggplot(km298, aes(x = 功率, y = 火花次数)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花次数关于功率的散点图",
    x = "功率",
    y = "火花次数"
  ) +
  theme_minimal()

火花时间

火花时间与公里标

ggplot(km298, aes(x = 公里标, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于公里标的散点图",
    x = "公里标",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与采样点

ggplot(km298, aes(x = 采样点, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于采样点的散点图",
    x = "采样点",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与压力1

ggplot(km298, aes(x = 压力1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于压力1的散点图",
    x = "压力1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与压力2

ggplot(km298, aes(x = 压力2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于压力2的散点图",
    x = "压力2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与压力3

ggplot(km298, aes(x = 压力3, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于压力3的散点图",
    x = "压力3",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与压力4

ggplot(km298, aes(x = 压力4, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于压力4的散点图",
    x = "压力4",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加基

ggplot(km298, aes(x = 垂加基, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加基的散点图",
    x = "垂加基",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与横加基

ggplot(km298, aes(x = 横加基, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于横加基的散点图",
    x = "横加基",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与温度

ggplot(km298, aes(x = 温度, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于温度的散点图",
    x = "温度",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加

ggplot(km298, aes(x = 垂加, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加的散点图",
    x = "垂加",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加1

ggplot(km298, aes(x = 垂加1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加1的散点图",
    x = "垂加1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加2

ggplot(km298, aes(x = 垂加2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加2的散点图",
    x = "垂加2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加3

ggplot(km298, aes(x = 垂加3, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加3的散点图",
    x = "垂加3",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与垂加4

ggplot(km298, aes(x = 垂加4, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于垂加4的散点图",
    x = "垂加4",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与滑板1压力

ggplot(km298, aes(x = 滑板1压力, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于滑板1压力的散点图",
    x = "滑板1压力",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与滑板2压力

ggplot(km298, aes(x = 滑板2压力, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于滑板2压力的散点图",
    x = "滑板2压力",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与无补偿接触力

ggplot(km298, aes(x = 无补偿接触力, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于无补偿接触力的散点图",
    x = "无补偿接触力",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与有补偿接触力

ggplot(km298, aes(x = 有补偿接触力, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于有补偿接触力的散点图",
    x = "有补偿接触力",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与空气动力补偿接触力

ggplot(km298, aes(x = 空气动力补偿接触力, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于空气动力补偿接触力的散点图",
    x = "空气动力补偿接触力",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与硬点

ggplot(km298, aes(x = 硬点, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于硬点的散点图",
    x = "硬点",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与冲击

ggplot(km298, aes(x = 冲击, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于冲击的散点图",
    x = "冲击",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与接触拉出值

ggplot(km298, aes(x = 接触拉出值, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于接触拉出值的散点图",
    x = "接触拉出值",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与接触导高

ggplot(km298, aes(x = 接触导高, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于接触导高的散点图",
    x = "接触导高",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与网流

ggplot(km298, aes(x = 网流, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于网流的散点图",
    x = "网流",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与网压

ggplot(km298, aes(x = 网压, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于网压的散点图",
    x = "网压",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与纵加

ggplot(km298, aes(x = 纵加, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于纵加的散点图",
    x = "纵加",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与纵加1

ggplot(km298, aes(x = 纵加1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于纵加1的散点图",
    x = "纵加1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与纵加2

ggplot(km298, aes(x = 纵加2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于纵加2的散点图",
    x = "纵加2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与纵加3

ggplot(km298, aes(x = 纵加3, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于纵加3的散点图",
    x = "纵加3",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与纵加

ggplot(km298, aes(x = 纵加4, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于纵加4的散点图",
    x = "纵加4",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与火花次数

ggplot(km298, aes(x = 火花次数, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于火花次数的散点图",
    x = "火花次数",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与保留1

ggplot(km298, aes(x = 保留1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于保留1的散点图",
    x = "保留1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与保留2

ggplot(km298, aes(x = 保留2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于保留2的散点图",
    x = "保留2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与保留3

ggplot(km298, aes(x = 保留3, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于保留3的散点图",
    x = "保留3",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与保留4

ggplot(km298, aes(x = 保留4, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于保留4的散点图",
    x = "保留4",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与速度

ggplot(km298, aes(x = 速度, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于速度的散点图",
    x = "速度",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与支柱

ggplot(km298, aes(x = 支柱, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于支柱的散点图",
    x = "支柱",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触导高1

ggplot(km298, aes(x = 非接触导高1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触导高1的散点图",
    x = "非接触导高1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触导高2

ggplot(km298, aes(x = 非接触导高2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触导高2的散点图",
    x = "非接触导高2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触拉出值1

ggplot(km298, aes(x = 非接触拉出值1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触拉出值1的散点图",
    x = "非接触拉出值1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触拉出值2

ggplot(km298, aes(x = 非接触拉出值2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触拉出值2的散点图",
    x = "非接触拉出值2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触磨耗1

ggplot(km298, aes(x = 非接触磨耗1, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触磨耗1的散点图",
    x = "非接触磨耗1",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与非接触磨耗2

ggplot(km298, aes(x = 非接触磨耗2, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于非接触磨耗2的散点图",
    x = "非接触磨耗2",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与接触线坡度

ggplot(km298, aes(x = 接触线坡度, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于接触线坡度的散点图",
    x = "接触线坡度",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与吊悬

ggplot(km298, aes(x = 吊悬, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于吊悬的散点图",
    x = "吊悬",
    y = "火花时间"
  ) +
  theme_minimal()

火花时间与功率

ggplot(km298, aes(x = 功率, y = 火花时间)) +
  geom_point(alpha = 0.6, color = "steelblue") +  # 直接设置颜色参数
  labs(
    title = "火花时间关于功率的散点图",
    x = "功率",
    y = "火花时间"
  ) +
  theme_minimal()